The National Palace Museum Experience/The National Palace Museum Experience.iso/Programs/Index.dxr/00110_control handlers.ls

Text File | 1998-11-19 | 5.7 KB | 210 lines

global groommouseupslist, groommousedownslist, hiliterect, roomscrollpos, roomscrolllinesize, roombarsprite, roomleftofscroll, roomrightofscroll, roomtotalscroll, roomcontentsprite, roommaxscroll, roomlist, returnflag, originalloc, currlabel, endSprite

on initroomcontrols
  set groommousedownslist to []
  set groommouseupslist to []
  setAt(groommouseupslist, hiliterect, 0)
  setAt(groommousedownslist, hiliterect, 0)
end

on addroomcontrol channel, chotspots, cactions, whichway
  if not listp(chotspots) or not listp(cactions) then
    return #badcontrol
  end if
  if count(chotspots) <> count(cactions) then
    return #badcontrol
  end if
  if whichway = #down then
    setAt(groommousedownslist, channel, [chotspots, cactions])
  else
    setAt(groommouseupslist, channel, [chotspots, cactions])
  end if
end

on deleteroomcontrol channel, whichway
  if (whichway = #up) or (whichway = #both) then
    setAt(groommouseupslist, channel, 0)
  end if
  if (whichway = #down) or (whichway = #both) then
    setAt(groommousedownslist, channel, 0)
  end if
end

on hitroomcontrol whichway
  global spriteNum
  set me to the clickOn
  set hitpoint to point(the mouseH - the left of sprite me, the mouseV - the top of sprite me)
  if whichway = #down then
    set controlslist to groommousedownslist
    if the name of the mouseMember contains "light" then
      puppetSound(2, "Button")
      updateStage()
    end if
  else
    set controlslist to groommouseupslist
  end if
  set mycontrol to getAt(controlslist, me)
  if not listp(mycontrol) then
    return #notcontrol
  end if
  if count(mycontrol) < 2 then
    return #notcontrol
  end if
  set hitlist to getAt(mycontrol, 1)
  if not listp(hitlist) then
    return #notcontrol
  end if
  set actionlist to getAt(mycontrol, 2)
  if not listp(actionlist) then
    return #notcontrol
  end if
  if (count(actionlist) <> count(hitlist)) or (count(hitlist) = 0) then
    return #badcontrol
  end if
  repeat with i = 1 to count(hitlist)
    if inside(hitpoint, getAt(hitlist, i)) then
      puppetSprite(hiliterect, 0)
      set the locV of sprite 2 to getAt(actionlist, i)
      repeat with spriteNum = 2 to endSprite - 1
        setlistposition()
      end repeat
      exit repeat
    end if
  end repeat
end

on checkroomrollover whichway
  set noroll to 1
  repeat with i = hiliterect - 1 down to 1
    if rollOver(i) then
      if (listp(getAt(groommouseupslist, i)) and ((whichway = #up) or (whichway = #both))) or (listp(getAt(groommousedownslist, i)) and ((whichway = #down) or (whichway = #both))) then
        hiliteroomcontrol(i, whichway)
        set noroll to 0
        exit repeat
      end if
    end if
  end repeat
  if noroll then
    set the locH of sprite hiliterect to -1000
  end if
end

on hiliteroomcontrol contnum, whichway
  set norect to 1
  if (whichway = #up) or (whichway = #both) then
    set upcont to getAt(groommouseupslist, contnum)
    if not listp(upcont) then
      set uprects to []
    end if
    if count(upcont) < 2 then
      set uprects to []
    end if
    if voidp(uprects) then
      set uprects to getAt(upcont, 1)
    else
      nothing()
    end if
  else
    set uprects to []
  end if
  if (whichway = #down) or (whichway = #both) then
    set downcont to getAt(groommousedownslist, contnum)
    if not listp(downcont) then
      set downrects to []
    end if
    if count(downcont) < 2 then
      set downrects to []
    end if
    if voidp(downrects) then
      set downrects to getAt(downcont, 1)
    else
      nothing()
    end if
  else
    set downrects to []
  end if
  set rectlist to combo(uprects, downrects)
  set hoff to the left of sprite contnum
  set voff to the top of sprite contnum
  set where to point(the mouseH - hoff, the mouseV - voff)
  set mouseposition to point(the mouseH, the mouseV)
  repeat with r in rectlist
    if inside(where, r) and (the mouseH < 425) then
      set order to getOne(rectlist, r)
      set roomhilite to string(getAt(roomlist, order)) && "light"
      set the memberNum of sprite hiliterect to the number of member roomhilite
      spriteBox(hiliterect, getAt(r, 1) + hoff, getAt(r, 2) + voff, getAt(r, 3) + hoff, getAt(r, 4) + voff)
      updateStage()
      set norect to 0
      exit repeat
    end if
  end repeat
  if inside(mouseposition, rect(0, 0, 13, 72)) then
    scrollleft()
  else
    if inside(mouseposition, rect(627, 0, 640, 72)) then
      scrollright()
    else
      cursor(-1)
    end if
  end if
  if norect then
    set the locH of sprite hiliterect to -1000
  end if
end

on combo alist, anotherlist
  set rectlist to []
  repeat with r in alist
    if ilk(r, #rect) then
      add(rectlist, r)
    end if
  end repeat
  repeat with r in anotherlist
    if ilk(r, #rect) then
      add(rectlist, r)
    end if
  end repeat
  return rectlist
end

on initscrollh
  global timesflag
  set roomscrollpos to 1
  set roomscrolllinesize to 20
  set roombarsprite to 41
  set roomleftofscroll to the left of sprite roombarsprite
  set roomrightofscroll to the right of sprite roombarsprite
  set roomtotalscroll to the width of cast the memberNum of sprite roomcontentsprite
  set roommaxscroll to roomtotalscroll - (roomrightofscroll - roomleftofscroll)
  set timesflag to 1
  setscrollboxh()
end

on setscrollboxh
  set the locH of sprite roomcontentsprite to roomleftofscroll + (roomtotalscroll / 2) - roomscrollpos + 1
  updateStage()
end

on scrollright
  set roomscrollpos to roomscrollpos + roomscrolllinesize
  if roomscrollpos > roommaxscroll then
    set roomscrollpos to roommaxscroll
    cursor(-1)
  else
    changecursor("Right")
  end if
  setscrollboxh()
end

on scrollleft
  set roomscrollpos to roomscrollpos - roomscrolllinesize
  if roomscrollpos < 1 then
    set roomscrollpos to 1
    cursor(-1)
  else
    changecursor("Left")
  end if
  setscrollboxh()
end